home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 162 / Tiger_Disk_162_19xx_Tiger-Crew-Disk_de_Side_B.d64 / nicht rauchen! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  114 lines
  1. 1 gosub1000
  2. 2 run5
  3. 5 poke19,64:input">   ";n$:goto8
  4. 8 print"[147]  [194]ist [196]u [210]aucher,[144]j/n[155][157][157]";n$;"?[144]": :
  5. 9 geta$:ifa$ <>"j"anda$ <>"n"then9
  6. 10 ifa$="j"then14
  7. 11 ifa$="n"then2000
  8. 14 print"[147]  [153][193][160][200][160][193] -[157][157][157][157][157] [197]in [206]ikotin-[211]klave!";:fort=1to1000:next:gosub1500
  9. 15 printchr$(14):poke53281,1:poke53280,15
  10. 16 n=1:sc=1670:cc=55942:poke252,25:poke254,5
  11. 20 print"[147]                                        ";:
  12. 22 print"   [210]auchen ist ungesund!!!              ";
  13. 30 fort=12288to12670:reada:poket,a:next
  14. 40 fort=49152to49215:reada:poket,a:next
  15. 50 v=53248:pokev+27,255:pokev+29,25:pokev+23,24:o=v+21:
  16. 60 fort=0to7:pokev+t+39,11:poket+2040,t+192:next:
  17. 70 pokev,70:pokev+2,52:pokev+4,52:pokev+6,10:pokev+8,42:pokev+10,62
  18. 80 pokev+1,130:pokev+3,162:pokev+5,183:pokev+7,64:pokev+9,183:pokev+11,166
  19. 90 pokesc,160:pokecc,1:
  20. 100 print"[153] [206]a, ";n$;",";:pokeo,6:fort=1to2500:next
  21. 105 print" wart' mal ab...:"
  22. 110 pokesc,32:sp=39:sys49152:fort=1to2500:next:
  23. 120 gosub670
  24. 130 z=z+.5:ifz=3thensp=47
  25. 140 ifz=11then160
  26. 150 goto120:pokev+40,0
  27. 160 print"[156][145]     [197]rst faellt [196]ir das [193]tmen schwer!":gosub670:poke252,8:poke254,2
  28. 170 fori=0to6:gosub670:next
  29. 180 print"[129][145]         [194]ald ist die [204]unge voller [212]eer!":poke252,5:poke254,1
  30. 190 pokeo,51:pokev+1,145:fort=29to0step-1:poket+12547,255
  31. 200 fori=1tot*25:next:pokev+1,145:next
  32. 210 print"[147][152][145] [213]nd zum [211]chluss geht gar nichts mehr! ": sp=18:gosub680:
  33. 211 poke254,2
  34. 220 fort=0to22:pokev+3,162+t
  35. 230 fori=1to100:next:next
  36. 240 pokev+1,120:print"[147]
  37. 250 [151]v[170]23,17:[151]o,1:[151]254,255:[141]680
  38. 260 [129]t[178]12288[164]12350:rn[178][181]([187](0)[172]256):[151]t,[194](t)[175] rn
  39. 270 [130]:c[178]c[170]1
  40. 280 [139]c[179]6[167]260
  41. 290 [153],"    (NULL)uhe in ascrieden!":[153][163]12)"ononwait  totototototototototototototototo";
  42. 300 [151]v[170]2,100:[151]v[170]3,115:[151]o,2
  43. 301 [129]z[178]1[164]1750:[130]:[141]1505
  44. 310 [129] b[178]0[164]5000:[130]b:[158]64738
  45. 320 [143] *"puff"************************
  46. 330 [131] 3,57,224,28,198,24,32,0,6,78,7,1,73,20,245,73,84,133
  47. 340 [131] 142,86,201,136,84,137,136,84,129,72,96,145,64,0,6,60
  48. 350 [131] 24,56,2,39,192,3,192,0,0,6,0,0,9,0,0,6,0,0,0,0,0
  49. 360 [131] 48,0,0,72,0,0,48,0
  50. 370 [143] *joe's head********************
  51. 380 [131] 103,15,224,0,60,248,0,113,255,56,255,255,252,234,255
  52. 390 [131] 252,191,160,32,255,134,112,255,200,16,243,195,56,225,192
  53. 400 [131] 16,225,128,8,225,128,132,97,128,66,124,0,62,112,0,8
  54. 410 [131] 232,0,248,8,128,24,4,96,44,2,24,198,1,7,3,0,129,0
  55. 420 [143] *joe's body********************
  56. 430 [131] 103,3,255,128,4,0,32,8,32,16,16,32,16,31,192,16,16
  57. 440 [131] 64,112,16,64,144,16,128,144,21,0,144,17,0,80,17,0,80
  58. 450 [131] 17,255,160,8,247,160,7,247,192,3,239,0,3,207,0,3
  59. 460 [131] 207,0,3,207,0,3,199,0,3,252,248,3,254,252
  60. 470 [143] *cigarettes********************
  61. 480 [131] 103,0,1,224,0,7,32,0,29,32,0,21,32,15,245,32,15,255
  62. 490 [131] 224,15,255,224,15,255,224,15,255,224,15,255,224,15,255
  63. 500 [131] 224,15,255,224,15,255,224,15,255,224,15,255,224,15,255
  64. 510 [131] 224,15,255,224,15,255,224,15,255,224,15,255,224,0,0,0
  65. 520 [143] *x-ray*************************
  66. 530 [131] 255,127,255,254,252,56,127,240,16,31,224,16,15,224,16,15
  67. 540 [131] 224,56,15,224,56,15,224,56,15,240,124,31,248,124,63,252
  68. 550 [131] 254,127,255,255,255,192,0,3,192,0,3,202,0,3,202,114,83
  69. 560 [131] 202,87,83,196,101,35,202,87,35,202,85,35,202,0,3,160
  70. 570 [143] *puff**************************
  71. 580 [131] 0,0,0,0,0,6,0,0,25,0,0,18,0,0,12,0,0,0,0,0,0,0
  72. 590 [131] 0,0,0,0,0,0,0,10,0,0,18,0,0,12,0,0,0,0,0,0,0,0
  73. 600 [131] 96,0,0,64,0,0,0,0,0,0,28,0,0,12,0,0,4,0,0
  74. 610 [143] *interrupt data****************
  75. 620 [131] 120,169,13,141,20,3,169,192,141,21,3,88,96,238
  76. 630 [131] 6,208,198,253,165,253,208,7,206,1,208,165,254,133
  77. 640 [131] 253,198,251,165,251,208,26,24,173,10,208,74,176,9
  78. 650 [131] 238,10,208,206,11,208,76,57,192,206,10,208,238,11
  79. 660 [131] 208,165,252,133,251,76,49,234
  80. 670 [151]v[170]1,145:[151]o,sp:[141]680:[151]o,sp[171]1:[141]680:[142]
  81. 680 [129]k[178]1[164]355:[130]:[142]
  82. 1000 [151]53281,.:[151]53280,15:n[178]1:sc[178]1670:cc[178]55942:[151]252,25:[151]254,5
  83. 1001 [129]c[178]1[164]15:[151]646,c
  84. 1002 [153][199](14)"load      right$ch bin len(NULL)(NULL)(NULL)right$ und moechte str$ir           gern was ";
  85. 1004 [153]"zeigen! (NULL)orher nenne           mir aber bitte str$einen (NULL)amen. "
  86. 1005 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(":[130]
  87. 1006 [129]z[178]1[164]1500:[130]: [153][199](147):[140]
  88. 1007 [142]
  89. 1500 [151]53280,11:[151]53281,12:
  90. 1501 [153][199](14)"loadpoke(NULL)h, (NULL)annn, oh (NULL)ann!"
  91. 1502 [153]"   str$ann (NULL)chau' str$ir an,  "
  92. 1503 [153]"      was geschehen kann...!":[153][199](8):[129]t[178]1[164]1500:[130]
  93. 1504 [142]
  94. 1505 [153][199](142)"load                    wait"
  95. 1506 [153]"                   =wait"
  96. 1507 [153]"                    wait"
  97. 1508 [153]"                -..(NULL)..<wait"
  98. 1509 [153]"                    wait"
  99. 1510 [153]"                    wait"
  100. 1511 [153]"                    wait"
  101. 1512 [153]"                tototo waittototototo
  102. 1513 print"               [169]//[217] [212]///[146][169][165]"
  103. 1514 print"              [169]///[189][177][173]//[146][169][199][165]"
  104. 1515 print"             [169]////////[146][169][221][206]"
  105. 1516 print"[207][207][207][207][207][207][207][207][207][207][207][207][146][165][146][165][165][165][165][165][165][165][165][165][146][221][206][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][146]";
  106. 1517 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";:fort=1to2000:next:sys58253
  107. 2000 poke53280,5:poke53281,5:print"[147]    [206] [197] [201] [206] !  "
  108. 2001 print"[158][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";:poke56325,0
  109. 2002 print" [196][213][160][210][193][213][195][200][211][212][160][206][201][195][200][212] -                     ";:forz=1to35:next
  110. 2003 printtab(20)"[145][196][193][211][160][201][211][212][160][204][207][194][197][206][211][215][197][210][212]! ";:poke56325,55
  111. 2004 print"[158][146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":poke56325,1
  112. 2005 print"";:poke56325,55:sys63529:fort=1to1000:next
  113. 2006 sys58253
  114.